home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Utilities / Text Processing / Alpha / LaTeX / latex 2.09 / latex.tcl < prev    next >
Text File  |  1996-07-03  |  57KB  |  2,555 lines
  1. #############################################################################
  2. #
  3. # latex.tcl, version 2.0:  macros and bindings for LaTeX users
  4. #
  5. # -- see files 'LaTeX Help' and 'commands.tex' in the Help folder
  6. #
  7. #############################################################################
  8. #
  9. # version 1.1 and 1.2 (11/10/92) by Richard T. Austin (austin@eecs.umich.edu)
  10. # version 2.0 (1/24/93) by Tom Scavo (trscavo@syr.edu)
  11. #
  12. # If you make improvements to this file, please share them!
  13. #
  14. #############################################################################
  15.  
  16. source "$HOME:Tcl:Modes:smart.tcl"
  17.  
  18. #############################################################################
  19. #
  20. # Flags and Variables.
  21. #
  22. #############################################################################
  23.  
  24. set true 1
  25. set false 0
  26. # set insertLatexParameter $true
  27. # set noInsertLatexParameter $false
  28.  
  29. # Flags:
  30. newModeVar TeX optionIsMeta $false 1
  31. newModeVar TeX useBoxMacro $true 1
  32. newModeVar TeX deleteObjectNoisily $true 1
  33. newModeVar TeX deleteEnvironmentNoisily $true 1
  34. newModeVar TeX wordWrap $true 1
  35. newModeVar TeX useStatusBar $true 1
  36.  
  37. # Variables:
  38. newModeVar TeX boxMacroName "BoxedEPSF" 0
  39. newModeVar TeX funcExpr {\\((sub)*section|chapter)(\[.*\]|\*)?{([^{}]*)}} 0
  40. newModeVar TeX prefixString {% } 0
  41. newModeVar TeX wordBreak {(\\)?[a-zA-Z0-9]+} 0
  42. newModeVar TeX wordBreakPreface {([^a-zA-Z0-9\\]|.\\)} 0
  43.  
  44. proc dummyTeX {} {}
  45.  
  46.  
  47. #############################################################################
  48. #
  49. # Utility Macros.
  50. #
  51. #############################################################################
  52.  
  53. # A boolean function which checks to see if there's a current selection.
  54. proc isSelection {} {
  55.     return [string length [getSelect]]
  56. }
  57.  
  58. # Select the line containing the insertion point.
  59. proc lineSelect {} {
  60.     goto [lineStart [getPos]]
  61.     nextLineSelect
  62. }
  63.  
  64. # A boolean function which takes any string and tests to see if
  65. # that string contains all whitespace characters.  Carriage returns 
  66. # are considered whitespace, as are spaces and tabs.
  67. proc isWhitespace {anyString} {
  68.     set len [string length $anyString]
  69.     for {set i 0} {$i < $len} {incr i} {
  70.         set c [string index $anyString $i]
  71.         if {($c != "\ ") && ($c != "\t") && ($c != "\r")} then {return 0}
  72.     }
  73.     return 1
  74. }
  75.  
  76. # Insert a carriage return at the insertion point if any
  77. # character preceding the insertion point (on the same line)
  78. # is a non-whitespace character.
  79. proc openingCarriageReturn {} {
  80.     set end [getPos]
  81.     set start [lineStart $end]
  82.     set text [getText $start $end]
  83.     if {![isWhitespace $text]} carriageReturn
  84. }
  85.  
  86. # Insert a carriage return at the insertion point if any
  87. # character following the insertion point (on the same line)
  88. # is a non-whitespace character.
  89. proc closingCarriageReturn {} {
  90.     set start [getPos]
  91.     set end [nextLineStart $start]
  92.     set text [getText $start $end]
  93.     if {![isWhitespace $text]} carriageReturn
  94. }
  95.  
  96. # Set up tab stop mechanism.
  97. proc gotoTabStop {directionIndicator} {
  98.     set searchResult [search -n -f $directionIndicator -m 0 -i 1 -r 0 {•} [getPos]]
  99.     if {[llength $searchResult] == 0} then {
  100.         message "tab stop not found"
  101.         return 0
  102.     } else {
  103.         goto [lindex $searchResult 0]
  104.         return 1
  105.     }
  106. }
  107. proc nextTabStop {} {
  108.     if {[gotoTabStop 1]} {deleteChar}
  109. }
  110. proc previousTabStop {} {
  111.     if {[gotoTabStop 0]} {deleteChar}
  112. }
  113.  
  114. # Insert an object at the insertion point. If there is a selection and the 
  115. # global variable deleteObjectNoisily is false, quietly delete the selection 
  116. # first (just like "paste"). Otherwise, prompt the user for the appropriate 
  117. # action. Returns true if the object is ultimately inserted, and false if the 
  118. # user cancels the operation. 
  119. proc insertObject {objectName} {
  120.     global deleteObjectNoisily
  121.     if {[isSelection]} then {
  122.         if {$deleteObjectNoisily} then {
  123.             case [askyesno "Delete selection?"] in {
  124.                 "yes" {deleteText [getPos] [selEnd]}
  125.                 "no" {backwardChar}
  126.                 "cancel" {return 0}
  127.             }
  128.         } else {
  129.             deleteText [getPos] [selEnd]
  130.         }
  131.     }
  132.     insertText $objectName
  133.     return 1
  134. }
  135.  
  136. # Insert an object at the insertion point. If there is a selection, wrap 
  137. # it inside the parameters $left and $right. Returns true if there is a 
  138. # selection (in which case it will wrap), and false otherwise. 
  139. proc wrapObject {left right} {
  140.     set currentPos [getPos]
  141.     set selected [isSelection]
  142.     if {$selected} then {
  143.         replaceText $currentPos [selEnd] $left [getSelect] $right
  144.     } else {
  145.         insertText $left "•" $right
  146.     }
  147.     goto $currentPos
  148.     nextTabStop
  149.     return $selected
  150. }
  151.  
  152. # Inserts an environment with the specified name at the insertion point. 
  153. # Preserves indentation, and positions the cursor at the beginning of the 
  154. # environment body (to be inserted by the calling procedure). If the 
  155. # parameter latexParameter is true, a LaTeX parameter is inserted and the 
  156. # cursor is positioned there instead. Deletes the current selection quietly 
  157. # if the global variable deleteEnvironmentNoisily is false; otherwise the 
  158. # user is prompted for directions. Returns true if the environment is 
  159. # ultimately inserted, and false if the user cancels the operation. 
  160. proc insertEnvironment {environmentName latexParameter} {
  161.     global deleteEnvironmentNoisily
  162.     if {[isSelection]} then {
  163.         if {$deleteEnvironmentNoisily} then {
  164.             case [askyesno "Delete selection?"] in {
  165.                 "yes" {deleteText [getPos] [selEnd]}
  166.                 "no" {backwardChar}
  167.                 "cancel" {return 0}
  168.             }
  169.         } else {
  170.             deleteText [getPos] [selEnd]
  171.         }
  172.     }
  173.     set currentPos [getPos]
  174.     openingCarriageReturn
  175.     insertText "\\begin{" $environmentName "}"
  176.     # insert optional LaTeX parameter here:
  177.     if {$latexParameter} {insertText "{•}"}
  178.     carriageReturn
  179.     tab
  180.     insertText "•"
  181.     carriageReturn
  182.     backwardChar
  183.     deleteChar
  184.     insertText "\\end{" $environmentName "}•"
  185.     closingCarriageReturn
  186.     goto $currentPos
  187.     nextTabStop
  188.     return 1
  189. }
  190.  
  191. # Insert an environment with the given name at the insertion point. If there 
  192. # is currently a selection, cut and paste it into the body of the new 
  193. # environment, indent it, and leave it highlighted. Returns true if there is 
  194. # a selection, and false otherwise. 
  195. proc wrapEnvironment {environmentName latexParameter} {
  196.     if {[isSelection]} then {
  197.         set indent [indentString [getPos]]
  198.         set text [getSelect]
  199.         deleteText [getPos] [selEnd]
  200.         insertText $indent "\r"
  201.         backwardChar
  202.         insertEnvironment $environmentName $latexParameter
  203.         if {$latexParameter} then {
  204.             insertText "•"
  205.             nextTabStop
  206.         }
  207.         lineSelect
  208.         clear
  209.         insertText $text
  210.         markHilite
  211.         shiftRight
  212.         return 1
  213.     } else {
  214.         insertEnvironment $environmentName $latexParameter
  215.         return 0
  216.     }
  217. }
  218.  
  219.  
  220. #############################################################################
  221. # 
  222. # Paragraph Mode Macros.
  223. #
  224. #############################################################################
  225.  
  226. # Documents:
  227. proc insertDocument {documentType} {
  228.     set currentPos [getPos]
  229.     insertText "\\documentstyle\[•\]{$documentType}"
  230.     carriageReturn
  231.     insertEnvironment "document" 0
  232.     backwardChar
  233.     deleteChar
  234.     carriageReturn
  235.     insertText "•"
  236.     carriageReturn
  237.     nextTabStop
  238.     carriageReturn
  239.     goto $currentPos
  240.     nextTabStop
  241. }
  242. proc isDocumentSelected {} {
  243.     return 1
  244. }
  245. proc isEmptyFile {} {
  246.     return 1
  247. }
  248. proc wrapDocument {documentType} {
  249.     if {[isSelection]} then {
  250.         if {[isDocumentSelected]} then {
  251.             set text [getSelect]
  252.             deleteText [getPos] [selEnd]
  253.         } else {
  254.             case [askyesno "Select entire document?"] in {
  255.                 "yes" {}
  256.                 "no" {
  257.                     set text [getSelect]
  258.                     deleteText [getPos] [selEnd]
  259.                 }
  260.                 "cancel" {return 0}
  261.             }
  262.         }
  263.         set currentPos [getPos]
  264.         insertDocument $documentType
  265.         insertText "•"
  266.         nextTabStop
  267.         lineSelect
  268.         clear
  269.         insertText $text
  270.         markHilite
  271.         nextTabStop
  272.     } else {
  273.         if {![isEmptyFile]} then {
  274.             case [askyesno "Wrap existing text?"] in {
  275.                 "yes" {}
  276.                 "no" {}
  277.                 "cancel" {return 0}
  278.             }
  279.         }
  280.         insertDocument $documentType
  281.     }
  282.     return 1
  283. }
  284.  
  285. proc letter {} {
  286.     wrapDocument "letter"
  287.     message "type style option(s)"
  288. }
  289. proc article {} {
  290.     wrapDocument "article"
  291.     message "type style option(s)"
  292. }
  293. proc report {} {
  294.     wrapDocument "report"
  295.     message "type style option(s)"
  296. }
  297. proc book {} {
  298.     wrapDocument "book"
  299.     message "type style option(s)"
  300. }
  301.  
  302. proc custom {} {
  303.     catch {prompt "What document type?" "article"} documentType
  304.     if {$documentType != "cancel"} then {
  305.         wrapDocument $documentType
  306.         message "type style option(s)"
  307.     }
  308. }
  309.  
  310. # Sectioning:
  311. proc part {} {
  312.     if {[wrapObject "\\part{" "}•"]} then {
  313.         message "don't forget label"
  314.     } else {
  315.         message "type part name"
  316.     }
  317. }
  318. proc chapter {} {
  319.     if {[wrapObject "\\chapter{" "}•"]} then {
  320.         message "don't forget label"
  321.     } else {
  322.         message "type part name"
  323.     }
  324. }
  325. proc section {} {
  326.     if {[wrapObject "\\section{" "}•"]} then {
  327.         message "don't forget label"
  328.     } else {
  329.         message "type part name"
  330.     }
  331. }
  332. proc subsection {} {
  333.     if {[wrapObject "\\subsection{" "}•"]} then {
  334.         message "don't forget label"
  335.     } else {
  336.         message "type part name"
  337.     }
  338. }
  339. proc subsubsection {} {
  340.     if {[wrapObject "\\subsubsection{" "}•"]} then {
  341.         message "don't forget label"
  342.     } else {
  343.         message "type part name"
  344.     }
  345. }
  346. proc paragraph {} {
  347.     if {[wrapObject "\\paragraph{" "}•"]} then {
  348.         message "don't forget label"
  349.     } else {
  350.         message "type part name"
  351.     }
  352. }
  353. proc subparagraph {} {
  354.     if {[wrapObject "\\subparagraph{" "}•"]} then {
  355.         message "don't forget label"
  356.     } else {
  357.         message "type part name"
  358.     }
  359. }
  360.  
  361. # Definitions:
  362. proc myList {} {alertnote "Not yet implemented."}
  363. proc newcommand {} {alertnote "Not yet implemented."}
  364. proc newenvironment {} {alertnote "Not yet implemented."}
  365. proc newtheorem {} {alertnote "Not yet implemented."}
  366. proc renewcommand {} {alertnote "Not yet implemented."}
  367. proc renewenvironment {} {alertnote "Not yet implemented."}
  368.  
  369. # Text Style:
  370. proc roman {} {
  371.     if {[wrapObject "{\\rm " "}•"]} then {
  372.         message "roman text set"
  373.     } else {
  374.         message "enter roman text"
  375.     }
  376. }
  377. proc bold {} {
  378.     if {[wrapObject "{\\bf " "}•"]} then {
  379.         message "bold text set"
  380.     } else {
  381.         message "enter bold text"
  382.     }
  383. }
  384. proc italic {} {
  385.     if {[wrapObject "{\\it " "\\/}•"]} then {
  386.         insertText "•"
  387.         backwardChar
  388.         backwardChar
  389.     }
  390.     message "italic correction?"
  391. }
  392. proc emphatic {} {
  393.     if {[wrapObject "{\\em " "\\/}•"]} then {
  394.         insertText "•"
  395.         backwardChar
  396.         backwardChar
  397.     }
  398.     message "emphatic correction?"
  399. }
  400. proc slanted {} {
  401.     if {[wrapObject "{\\sl " "\\/}•"]} then {
  402.         insertText "•"
  403.         backwardChar
  404.         backwardChar
  405.     }
  406.     message "italic correction?"
  407. }
  408. proc sansSerif {} {
  409.     if {[wrapObject "{\\sf " "}•"]} then {
  410.         message "sans serif text set"
  411.     } else {
  412.         message "enter sans serif text"
  413.     }
  414. }
  415. proc smallCaps {} {
  416.     if {[wrapObject "{\\sc " "}•"]} then {
  417.         message "small caps text set"
  418.     } else {
  419.         message "enter small caps text"
  420.     }
  421. }
  422. proc typewriter {} {
  423.     if {[wrapObject "{\\tt " "}•"]} then {
  424.         message "typewriter text set"
  425.     } else {
  426.         message "enter typewriter text"
  427.     }
  428. }
  429.  
  430. # Text Size:
  431. proc tiny {} {
  432.     if {[wrapObject "{\\tiny " "}•"]} then {
  433.         message "tiny text set"
  434.     } else {
  435.         message "enter tiny text"
  436.     }
  437. }
  438. proc smallest {} {
  439.     if {[wrapObject "{\\scriptsize " "}•"]} then {
  440.         message "scriptsize text set"
  441.     } else {
  442.         message "enter scriptsize text"
  443.     }
  444. }
  445. proc smaller {} {
  446.     if {[wrapObject "{\\footnotesize " "}•"]} then {
  447.         message "footnotesize text set"
  448.     } else {
  449.         message "enter footnotesize text"
  450.     }
  451. }
  452. proc small {} {
  453.     if {[wrapObject "{\\small " "}•"]} then {
  454.         message "small text set"
  455.     } else {
  456.         message "enter small text"
  457.     }
  458. }
  459. proc normal {} {
  460.     if {[wrapObject "{\\normalsize " "}•"]} then {
  461.         message "normalsize text set"
  462.     } else {
  463.         message "enter normalsize text"
  464.     }
  465. }
  466. proc large {} {
  467.     if {[wrapObject "{\\large " "}•"]} then {
  468.         message "large text set"
  469.     } else {
  470.         message "enter large text"
  471.     }
  472. }
  473. proc larger {} {
  474.     if {[wrapObject "{\\Large " "}•"]} then {
  475.         message "Large text set"
  476.     } else {
  477.         message "enter Large text"
  478.     }
  479. }
  480. proc largest {} {
  481.     if {[wrapObject "{\\LARGE " "}•"]} then {
  482.         message "LARGE text set"
  483.     } else {
  484.         message "enter LARGE text"
  485.     }
  486. }
  487. proc huge {} {
  488.     if {[wrapObject "{\\huge " "}•"]} then {
  489.         message "huge text set"
  490.     } else {
  491.         message "enter huge text"
  492.     }
  493. }
  494. proc gigantic {} {
  495.     if {[wrapObject "{\\Huge " "}•"]} then {
  496.         message "Huge text set"
  497.     } else {
  498.         message "enter Huge text"
  499.     }
  500. }
  501.  
  502. # International:  not yet implemented.
  503.  
  504. # Environments:
  505. proc enumerate {} {
  506.     catch {prompt "enumerate:  how many items?" 3} numberItems
  507.     if {$numberItems != "cancel"} then {
  508.         set currentPos [getPos]
  509.         if {[insertEnvironment "enumerate" 0]} then {
  510.             item
  511.             insertText "  •"
  512.             for {set i 1} {$i < $numberItems} {incr i} {
  513.                 carriageReturn
  514.                 carriageReturn
  515.                 item
  516.                 insertText "  •"
  517.             }
  518.             goto $currentPos
  519.             nextTabStop
  520.             message "Type first item"
  521.         }
  522.     }
  523. }
  524. proc itemize {} {
  525.     catch {prompt "itemize:  how many items?" 3} numberItems
  526.     if {$numberItems != "cancel"} then {
  527.         set currentPos [getPos]
  528.         if {[insertEnvironment "itemize" 0]} then {
  529.             item
  530.             insertText "  •"
  531.             for {set i 1} {$i < $numberItems} {incr i} {
  532.                 carriageReturn
  533.                 carriageReturn
  534.                 item
  535.                 insertText "  •"
  536.             }
  537.             goto $currentPos
  538.             nextTabStop
  539.             message "Type first item"
  540.         }
  541.     }
  542. }
  543. proc description {} {
  544.     catch {prompt "description: how many items?" 3} numberItems
  545.     if {$numberItems != "cancel"} then {
  546.         set currentPos [getPos]
  547.         if {[insertEnvironment "description" 0]} then {
  548.             item
  549.             insertText "\[•\]  •"
  550.             for {set i 1} {$i < $numberItems} {incr i} {
  551.                 carriageReturn
  552.                 carriageReturn
  553.                 item
  554.                 insertText "\[•\]  •"
  555.             }
  556.             goto $currentPos
  557.             nextTabStop
  558.             message "Type first item"
  559.         }
  560.     }
  561. }
  562.  
  563. proc insertRow {jmax} {
  564.     insertText "•"
  565.     for {set j 1} {$j < $jmax} {incr j} {
  566.         insertText " & •"
  567.     }
  568. }
  569. proc tabular {} {
  570.     catch {prompt "tabular:  how many rows?" 3} numberRows
  571.     if {$numberRows != "cancel"} then {
  572.         catch {prompt "tabular:  how many columns?" 3} numberCols
  573.         if {$numberCols != "cancel"} then {
  574.             if {[insertEnvironment "tabular" 1]} then {
  575.                 set beginArgument [getPos]
  576.                 insertText "|"
  577.                 for {set j 1} {$j <= $numberCols} {incr j} {
  578.                     insertText "c|"
  579.                 }
  580.                 set endArgument [getPos]
  581.                 nextTabStop
  582.                 insertText "\\hline"
  583.                 for {set i 1} {$i <= $numberRows} {incr i} {
  584.                     carriageReturn
  585.                     insertRow $numberCols
  586.                     insertText "  \\\\"
  587.                     carriageReturn
  588.                     insertText "\\hline"
  589.                 }
  590.                 goto $beginArgument
  591.                 setMark
  592.                 goto $endArgument
  593.                 markHilite
  594.                 message "modify argument?"
  595.             }
  596.         }
  597.     }
  598. }
  599. proc tabbing {} {alertnote "Not yet implemented."}
  600.  
  601. proc figure {} {
  602.     global useBoxMacro
  603.     global boxMacroName
  604.     if {$useBoxMacro} then {
  605.         set currentPos [getPos]
  606.         if {[insertEnvironment "figure" 0]} then {
  607.             insertText "\\centerline{\\$boxMacroName{•}}"
  608.         } else {
  609.             return
  610.         }
  611.     } else {
  612.         if {[wrapEnvironment "figure" 0]} then {
  613.             forwardChar
  614.             backwardChar
  615.             set currentPos [getPos]
  616.         } else {
  617.             set currentPos [getPos]
  618.             insertText "•"
  619.         }
  620.     }
  621.     carriageReturn
  622.     insertText "\\caption{•}"
  623.     carriageReturn
  624.     insertText "\\protect\\label{•}"
  625.     goto $currentPos
  626.     nextTabStop
  627. }
  628. proc table {} {
  629.     if {[wrapEnvironment "table" 0]} then {
  630.         forwardChar
  631.         backwardChar
  632.         set currentPos [getPos]
  633.     } else {
  634.         set currentPos [getPos]
  635.         insertText "•"
  636.     }
  637.     carriageReturn
  638.     insertText "\\caption{•}"
  639.     carriageReturn
  640.     insertText "\\protect\\label{•}"
  641.     goto $currentPos
  642.     nextTabStop
  643. }
  644. proc slide {} {
  645.     wrapEnvironment "slide" 1
  646.     message "enter colors"
  647. }
  648.  
  649. proc verbatim {} {wrapEnvironment "verbatim" 0}
  650. proc quote {} {wrapEnvironment "quote" 0}
  651. proc quotation {} {wrapEnvironment "quotation" 0}
  652. proc verse {} {wrapEnvironment "verse" 0}
  653.  
  654. proc index {} {alertnote "Not yet implemented."}
  655. proc bibliography {} {
  656.     catch {prompt "bibliography:  how many bibitems?" 3} numberItems
  657.     if {$numberItems != "cancel"} then {
  658.         if {[insertEnvironment "thebibliography" 1]} then {
  659.             set beginArgument [getPos]
  660.             insertText "99"
  661.             set endArgument [getPos]
  662.             nextTabStop
  663.             insertText "\\bibitem{•}"
  664.             carriageReturn
  665.             insertText "•"
  666.             for {set i 1} {$i < $numberItems} {incr i} {
  667.                 carriageReturn
  668.                 carriageReturn
  669.                 insertText "\\bibitem{•}"
  670.                 carriageReturn
  671.                 insertText "•"
  672.             }
  673.             goto $beginArgument
  674.             setMark
  675.             goto $endArgument
  676.             markHilite
  677.             message "modify argument?"
  678.         }
  679.     }
  680. }
  681.  
  682. proc general {} {
  683.     catch {prompt "What environment?" "center"} environmentName
  684.     if {$environmentName != "cancel"} {wrapEnvironment $environmentName 0}
  685. }
  686.  
  687. # Boxes:
  688. proc mbox {} {
  689.     if {[wrapObject "\\mbox{" "}•"]} then {
  690.         message "mbox set"
  691.     } else {
  692.         message "enter text"
  693.     }
  694. }
  695. proc fbox {} {alertnote "Not yet implemented."}
  696. proc parbox {} {alertnote "Not yet implemented."}
  697.  
  698. # Misc:
  699. proc ellipsis {} {insertObject "\\ldots"}
  700. proc sectionMark {} {insertObject "\\S"}
  701. proc paragraphMark {} {insertObject "\\P"}
  702. proc dagger {} {insertObject "\\dag"}
  703. proc dblDagger {} {insertObject "\\ddag"}
  704. proc copyright {} {insertObject "\\copyright"}
  705. proc pounds {} {insertObject "\\pounds"}
  706. proc {en-dash} {} {insertObject "--"}
  707. proc {em-dash} {} {insertObject "---"}
  708. proc texLogo {} {insertObject "\\TeX"}
  709. proc latexLogo {} {insertObject "\\LaTeX"}
  710. proc today {} {insertObject "\\today"}
  711.  
  712. proc quotes {} {
  713.     if {[wrapObject "`" "'•"]} then {
  714.         message "text quoted"
  715.     } else {
  716.         message "enter text"
  717.     }
  718. }
  719. proc dblQuotes {} {
  720.     if {[wrapObject "``" "''•"]} then {
  721.         message "text double quoted"
  722.     } else {
  723.         message "enter text"
  724.     }
  725. }
  726. proc note {} {
  727.     if {[wrapObject "\\marginpar{" "}•"]} then {
  728.         message "marginal note set"
  729.     } else {
  730.         message "enter marginal note"
  731.     }
  732. }
  733. proc footnote {} {
  734.     if {[wrapObject "\\footnote{" "}•"]} then {
  735.         message "footnote set"
  736.     } else {
  737.         message "enter footnote"
  738.     }
  739. }
  740. proc label {} {
  741.     if {[wrapObject "\\label{" "}•"]} then {
  742.         message "label defined"
  743.     } else {
  744.         message "enter label"
  745.     }
  746. }
  747. proc crossRef {} { 
  748.     if {[wrapObject "\\ref{" "}•"]} then {
  749.         message "cross-reference made"
  750.     } else {
  751.         message "enter cross-reference"
  752.     }
  753. }
  754. proc pageRef {} { 
  755.     if {[wrapObject "\\pageref{" "}•"]} then {
  756.         message "page reference made"
  757.     } else {
  758.         message "enter page reference"
  759.     }
  760. }
  761. proc citation {} {
  762.     if {[wrapObject "\\cite{" "}•"]} then {
  763.         message "citation made"
  764.     } else {
  765.         message "enter citation"
  766.     }
  767. }
  768. proc item {} {insertObject "\\item"}
  769. proc bibitem {} {
  770.     if {[wrapObject "\\bibitem{" "}•"]} then {
  771.         message "bibitem set"
  772.     } else {
  773.         message "enter bibitem"
  774.     }
  775. }
  776.  
  777.  
  778. #############################################################################
  779. # 
  780. # Math Mode Macros.
  781. #
  782. #############################################################################
  783.  
  784. # Modes:
  785. proc texMath {} {
  786.     if {[wrapObject "$" "$•"]} then {
  787.         message "formula set"
  788.     } else {
  789.         message "enter formula"
  790.     }
  791. }
  792. proc texDisplaymath {} {
  793.     if {[wrapObject "$$" "$$•"]} then {
  794.         message "displayed formula set"
  795.     } else {
  796.         message "enter displayed formula"
  797.     }
  798. }
  799. proc latexMath {} {
  800.     if {[wrapObject "\\( " " \\)•"]} then {
  801.         message "formula set"
  802.     } else {
  803.         message "enter formula"
  804.     }
  805. }
  806. proc latexDisplaymath {} {
  807.     if {[wrapObject "\\\[ " " \\\]•"]} then {
  808.         message "displayed formula set"
  809.     } else {
  810.         message "enter displayed formula"
  811.     }
  812. }
  813.  
  814. # Environments:
  815. proc math {} {wrapEnvironment "math" 0}
  816. proc displaymath {} {wrapEnvironment "displaymath" 0}
  817. proc equation {} {
  818.     if {[wrapEnvironment "equation" 0]} then {
  819.         forwardChar
  820.         backwardChar
  821.         set currentPos [getPos]
  822.     } else {
  823.         set currentPos [getPos]
  824.         insertText "•"
  825.     }
  826.     carriageReturn
  827.     insertText "\\label{•}"
  828.     goto $currentPos
  829.     nextTabStop
  830. }
  831. proc myArray {} {
  832.     catch {prompt "array:  how many rows?" 3} numberRows
  833.     if {$numberRows != "cancel"} then {
  834.         catch {prompt "array:  how many columns?" 3} numberCols
  835.         if {$numberCols != "cancel"} then {
  836.             if {[insertEnvironment "array" 1]} then {
  837.                 set beginArgument [getPos]
  838.                 for {set j 1} {$j <= $numberCols} {incr j} {
  839.                     insertText "c"
  840.                 }
  841.                 set endArgument [getPos]
  842.                 nextTabStop
  843.                 for {set i 1} {$i < $numberRows} {incr i} {
  844.                     insertRow $numberCols
  845.                     insertText "  \\\\"
  846.                     carriageReturn
  847.                 }
  848.                 insertRow $numberCols
  849.                 goto $beginArgument
  850.                 setMark
  851.                 goto $endArgument
  852.                 markHilite
  853.                 message "modify argument?"
  854.             }
  855.         }
  856.     }
  857. }
  858. proc eqnarray {} {
  859.     catch {prompt "eqnarray:  how many rows?" 3} numberRows
  860.     if {$numberRows != "cancel"} then {
  861.         set currentPos [getPos]
  862.         if {[insertEnvironment "eqnarray" 0]} then {
  863.             for {set i 1} {$i < $numberRows} {incr i} {
  864.                 insertRow 3
  865.                 carriageReturn
  866.                 insertText "\\label{•} \\\\"
  867.                 carriageReturn
  868.             }
  869.             insertRow 3
  870.             carriageReturn
  871.             insertText "\\label{•}"
  872.             goto $currentPos
  873.             nextTabStop
  874.         }
  875.     }
  876. }
  877. proc eqnarrayStar {} {
  878.     catch {prompt "eqnarray*:  how many rows?" 3} numberRows
  879.     if {$numberRows != "cancel"} then {
  880.         set currentPos [getPos]
  881.         if {[insertEnvironment "eqnarray*" 0]} then {
  882.             for {set i 1} {$i < $numberRows} {incr i} {
  883.                 insertRow 3
  884.                 insertText "  \\\\"
  885.                 carriageReturn
  886.             }
  887.             insertRow 3
  888.             goto $currentPos
  889.             nextTabStop
  890.         }
  891.     }
  892. }
  893.  
  894. # Formulas:
  895. proc subscript {} {
  896.     if {[wrapObject "_{" "}•"]} then {
  897.         message "subscript set"
  898.     } else {
  899.         message "enter subscript"
  900.     }
  901. }
  902. proc superscript {} {
  903.     if {[wrapObject "^{" "}•"]} then {
  904.         message "superscript set"
  905.     } else {
  906.         message "enter superscript"
  907.     }
  908. }
  909. proc fraction {} {
  910.     set currentPos [getPos]
  911.     if {[isSelection]} then {
  912.         set selection [getSelect]
  913.         set args [split $selection /]
  914.         set len [llength $args]
  915.         deleteText $currentPos [selEnd]
  916.         if {$len == 1} then {
  917.             # maybe the selection should be deleted in this case?
  918.             insertText "\\frac{" $selection "}{•}•"
  919.             goto $currentPos
  920.             nextTabStop
  921.             message "enter denominator"
  922.         } else {
  923.             set firstArg [lindex $args 0]
  924.             set restArgs [lrange $args 1 [expr $len-1]]
  925.             insertText "\\frac{" $firstArg "}{" [join $restArgs /] "}"
  926.             if {$len > 2} {message "beware of multiple /"}
  927.         }
  928.     } else {
  929.         insertText "\\frac{•}{•}•"
  930.         goto $currentPos
  931.         nextTabStop
  932.         message "enter numerator"
  933.     }
  934. }
  935. proc squareRoot {} {
  936.     if {[wrapObject "\\sqrt{" "}•"]} then {
  937.         message "square root set"
  938.     } else {
  939.         message "enter formula"
  940.     }
  941. }
  942. proc nthRoot {} {
  943.     if {[wrapObject "\\sqrt\[•\]{" "}•"]} then {
  944.         message "enter root"
  945.     } else {
  946.         message "enter root, then formula"
  947.     }
  948. }
  949. proc oneParameter {} {
  950.     catch {prompt "Command name?" "sqrt"} commandName
  951.     if {$commandName != "cancel"} {wrapObject "\\$commandName{" "}•"}
  952. }
  953. proc twoParameters {} {
  954.     catch {prompt "Command name?" "frac"} commandName
  955.     if {$commandName != "cancel"} then {
  956.         set currentPos [getPos]
  957.         if {[insertObject "\\$commandName{•}{•}•"]} then {
  958.             goto $currentPos
  959.             nextTabStop
  960.         }
  961.     }
  962. }
  963.  
  964. # Greek:
  965. proc alpha {} {insertObject "\\alpha"}
  966. proc beta {} {insertObject "\\beta"}
  967. proc gamma {} {insertObject "\\gamma"}
  968. proc delta {} {insertObject "\\delta"}
  969. proc epsilon {} {insertObject "\\epsilon"}
  970. proc zeta {} {insertObject "\\zeta"}
  971. proc eta {} {insertObject "\\eta"}
  972. proc theta {} {insertObject "\\theta"}
  973. proc iota {} {insertObject "\\iota"}
  974. proc kappa {} {insertObject "\\kappa"}
  975. proc lambda {} {insertObject "\\lambda"}
  976. proc mu {} {insertObject "\\mu"}
  977. proc nu {} {insertObject "\\nu"}
  978. proc xi {} {insertObject "\\xi"}
  979. proc pi {} {insertObject "\\pi"}
  980. proc rho {} {insertObject "\\rho"}
  981. proc sigma {} {insertObject "\\sigma"}
  982. proc tau {} {insertObject "\\tau"}
  983. proc upsilon {} {insertObject "\\upsilon"}
  984. proc phi {} {insertObject "\\phi"}
  985. proc chi {} {insertObject "\\chi"}
  986. proc psi {} {insertObject "\\psi"}
  987. proc omega {} {insertObject "\\omega"}
  988.  
  989. proc capGamma {} {insertObject "\\Gamma"}
  990. proc capDelta {} {insertObject "\\Delta"}
  991. proc capTheta {} {insertObject "\\Theta"}
  992. proc capLambda {} {insertObject "\\Lambda"}
  993. proc capXi {} {insertObject "\\Xi"}
  994. proc capPi {} {insertObject "\\Pi"}
  995. proc capSigma {} {insertObject "\\Sigma"}
  996. proc capUpsilon {} {insertObject "\\Upsilon"}
  997. proc capPhi {} {insertObject "\\Phi"}
  998. proc capPsi {} {insertObject "\\Psi"}
  999. proc capOmega {} {insertObject "\\Omega"}
  1000.  
  1001. proc varEpsilon {} {insertObject "\\varepsilon"}
  1002. proc varTheta {} {insertObject "\\vartheta"}
  1003. proc varPi {} {insertObject "\\varpi"}
  1004. proc varRho {} {insertObject "\\varrho"}
  1005. proc varSigma {} {insertObject "\\varsigma"}
  1006. proc varPhi {} {insertObject "\\varphi"}
  1007.  
  1008. # Binary Ops:
  1009. proc plusOrMinus {} {insertObject "\\pm"}
  1010. proc minusOrPlus {} {insertObject "\\mp"}
  1011. proc multiply {} {insertObject "\\times"}
  1012. proc divide {} {insertObject "\\div"}
  1013. proc asterisk {} {insertObject "\\ast"}
  1014. proc star {} {insertObject "\\star"}
  1015. proc circle {} {insertObject "\\circ"}
  1016. proc bigCircle {} {insertObject "\\bigcirc"}
  1017. proc bullet {} {insertObject "\\bullet"}
  1018. proc centerDot {} {insertObject "\\cdot"}
  1019. proc intersection {} {insertObject "\\cap"}
  1020. proc union {} {insertObject "\\cup"}
  1021. proc logicalAnd {} {insertObject "\\wedge"}
  1022. proc logicalOr {} {insertObject "\\vee"}
  1023. proc setMinus {} {insertObject "\\setminus"}
  1024.  
  1025. # Relations:
  1026. proc notEqual {} {insertObject "\\neq"}
  1027. proc lessOrEqual {} {insertObject "\\leq"}
  1028. proc greaterOrEqual {} {insertObject "\\geq"}
  1029. proc subset {} {insertObject "\\subset"}
  1030. proc superset {} {insertObject "\\supset"}
  1031. proc subsetOrEqual {} {insertObject "\\subseteq"}
  1032. proc supersetOrEqual {} {insertObject "\\supseteq"}
  1033. proc elementOf {} {insertObject "\\in"}
  1034. proc equivalent {} {insertObject "\\equiv"}
  1035. proc similar {} {insertObject "\\sim"}
  1036. proc similarEqual {} {insertObject "\\simeq"}
  1037. proc dotEqual {} {insertObject "\\doteq"}
  1038. proc approximate {} {insertObject "\\approx"}
  1039. proc congruent {} {insertObject "\\cong"}
  1040.  
  1041. # Large Ops:
  1042. proc insertLargeOp {commandName} {
  1043.     set currentPos [getPos]
  1044.     insertText "\\$commandName"
  1045.     insertText "_{•}^{•}•"
  1046.     goto $currentPos
  1047.     nextTabStop
  1048. }
  1049. proc sum {} {insertLargeOp "sum"}
  1050. proc product {} {insertLargeOp "prod"}
  1051. proc integral {} {insertLargeOp "int"}
  1052. proc bigUnion {} {insertLargeOp "bigcup"}
  1053. proc bigIntersection {} {insertLargeOp "bigcap"}
  1054. proc bigAnd {} {insertLargeOp "bigwedge"}
  1055. proc bigOr {} {insertLargeOp "bigvee"}
  1056.  
  1057. # Arrows:
  1058. proc mapsTo {} {insertObject "\\mapsto"}
  1059. proc leftArrow {} {insertObject "\\leftarrow"}
  1060. proc rightArrow {} {insertObject "\\rightarrow"}
  1061. proc {left-rightArrow} {} {insertObject "\\leftrightarrow"}
  1062. proc dblLeftArrow {} {insertObject "\\Leftarrow"}
  1063. proc dblRightArrow {} {insertObject "\\Rightarrow"}
  1064. proc {dblLeft-rightArrow} {} {insertObject "\\Leftrightarrow"}
  1065.  
  1066. # Dots:
  1067. proc centerDots {} {insertObject "\\cdots"}
  1068. proc verticalDots {} {insertObject "\\vdots"}
  1069. proc diagonalDots {} {insertObject "\\ddots"}
  1070.  
  1071. # Symbols:
  1072. proc aleph {} {insertObject "\\aleph"}
  1073. proc emptySet {} {insertObject "\\emptyset"}
  1074. proc negation {} {insertObject "\\neg"}
  1075. proc forAll {} {insertObject "\\forall"}
  1076. proc exists {} {insertObject "\\exists"}
  1077. proc scriptL {} {insertObject "\\ell"}
  1078. proc nabla {} {insertObject "\\nabla"}
  1079. proc partial {} {insertObject "\\partial"}
  1080. proc infinity {} {insertObject "\\infty"}
  1081. proc backslash {} {insertObject "\\backslash"}
  1082. proc angle {} {insertObject "\\angle"}
  1083. proc box {} {insertObject "\\Box"}
  1084. proc diamond {} {insertObject "\\Diamond"}
  1085. proc triangle {} {insertObject "\\triangle"}
  1086.  
  1087. # Functions:  not yet implemented.
  1088.  
  1089. # Delimiters:
  1090. proc parentheses {} {
  1091.     if {[wrapObject "(" ")•"]} then {
  1092.         message "formula delimited"
  1093.     } else {
  1094.         message "enter formula"
  1095.     }
  1096. }
  1097. proc brackets {} {
  1098.     if {[wrapObject "\[" "\]•"]} then {
  1099.         message "formula delimited"
  1100.     } else {
  1101.         message "enter formula"
  1102.     }
  1103. }
  1104. proc braces {} {
  1105.     if {[wrapObject "\\\{" "\\\}•"]} then {
  1106.         message "formula delimited"
  1107.     } else {
  1108.         message "enter formula"
  1109.     }
  1110. }
  1111. proc absoluteValue {} {
  1112.     if {[wrapObject "|" "|•"]} then {
  1113.         message "formula delimited"
  1114.     } else {
  1115.         message "enter formula"
  1116.     }
  1117. }
  1118. proc otherDelims {} {
  1119.     catch {prompt "Choose delimiters:" "parentheses" "" "parentheses" "brackets" "braces" "angle brackets" "vertical bars" "double bars" "ceiling" "floor"} delimType
  1120.     if {$delimType != "cancel"} then {
  1121.         case $delimType in {
  1122.             "parentheses" {
  1123.                 set leftDelim "("
  1124.                 set rightDelim ")"
  1125.             }
  1126.             "brackets" {
  1127.                 set leftDelim "\["
  1128.                 set rightDelim "\]"
  1129.             }
  1130.             "braces" {
  1131.                 set leftDelim "\\\{"
  1132.                 set rightDelim "\\\}"
  1133.             }
  1134.             "{angle brackets}" {
  1135.                 set leftDelim "\\langle"
  1136.                 set rightDelim "\\rangle"
  1137.             }
  1138.             "{vertical bars}" {
  1139.                 set leftDelim "|"
  1140.                 set rightDelim "|"
  1141.             }
  1142.             "{double bars}" {
  1143.                 set leftDelim "\\|"
  1144.                 set rightDelim "\\|"
  1145.             }
  1146.             "ceiling" {
  1147.                 set leftDelim "\\lceil"
  1148.                 set rightDelim "\\rceil"
  1149.             }
  1150.             "floor" {
  1151.                 set leftDelim "\\lfloor"
  1152.                 set rightDelim "\\rfloor"
  1153.             }
  1154.             default {
  1155.                 alertnote "\"$delimType\" not recognized"
  1156.                 return
  1157.             }
  1158.         }
  1159.         if {[wrapObject "$leftDelim" "$rightDelim•"]} then {
  1160.             message "formula delimited"
  1161.         } else {
  1162.             message "enter formula"
  1163.         }
  1164.     }
  1165. }
  1166.  
  1167. proc {half-openInterval} {} {
  1168.     if {[wrapObject "(" "\]•"]} then {
  1169.         message "formula delimited"
  1170.     } else {
  1171.         message "enter formula"
  1172.     }
  1173. }
  1174. proc {half-closedInterval} {} {
  1175.     if {[wrapObject "\[" ")•"]} then {
  1176.         message "formula delimited"
  1177.     } else {
  1178.         message "enter formula"
  1179.     }
  1180. }
  1181.  
  1182. proc bigParentheses {} {
  1183.     if {[wrapObject "\\left(" "\\right)•"]} then {
  1184.         message "formula delimited"
  1185.     } else {
  1186.         message "enter formula"
  1187.     }
  1188. }
  1189. proc bigBrackets {} {
  1190.     if {[wrapObject "\\left\[" "\\right\]•"]} then {
  1191.         message "formula delimited"
  1192.     } else {
  1193.         message "enter formula"
  1194.     }
  1195. }
  1196. proc bigBraces {} {
  1197.     if {[wrapObject "\\left\\\{" "\\right\\\}•"]} then {
  1198.         message "formula delimited"
  1199.     } else {
  1200.         message "enter formula"
  1201.     }
  1202. }
  1203. proc bigAbsoluteValue {} {
  1204.     if {[wrapObject "\\left|" "\\right|•"]} then {
  1205.         message "formula delimited"
  1206.     } else {
  1207.         message "enter formula"
  1208.     }
  1209. }
  1210. proc otherBigDelims {} {
  1211.     catch {prompt "Choose delimiters:" "parentheses" "" "parentheses" "brackets" \
  1212.                 "braces" "angle brackets" "vertical bars" "double bars" \
  1213.                 "ceiling" "floor"} delimType
  1214.     if {$delimType != "cancel"} then {
  1215.         case $delimType in {
  1216.             "parentheses" {
  1217.                 set leftDelim "("
  1218.                 set rightDelim ")"
  1219.             }
  1220.             "brackets" {
  1221.                 set leftDelim "\["
  1222.                 set rightDelim "\]"
  1223.             }
  1224.             "braces" {
  1225.                 set leftDelim "\\\{"
  1226.                 set rightDelim "\\\}"
  1227.             }
  1228.             "{angle brackets}" {
  1229.                 set leftDelim "\\langle"
  1230.                 set rightDelim "\\rangle"
  1231.             }
  1232.             "{vertical bars}" {
  1233.                 set leftDelim "|"
  1234.                 set rightDelim "|"
  1235.             }
  1236.             "{double bars}" {
  1237.                 set leftDelim "\\|"
  1238.                 set rightDelim "\\|"
  1239.             }
  1240.             "ceiling" {
  1241.                 set leftDelim "\\lceil"
  1242.                 set rightDelim "\\rceil"
  1243.             }
  1244.             "floor" {
  1245.                 set leftDelim "\\lfloor"
  1246.                 set rightDelim "\\rfloor"
  1247.             }
  1248.             default {
  1249.                 alertnote "\"$delimType\" not recognized"
  1250.                 return
  1251.             }
  1252.         }
  1253.         if {[wrapObject "\\left$leftDelim" "\\right$rightDelim•"]} then {
  1254.             message "formula delimited"
  1255.         } else {
  1256.             message "enter formula"
  1257.         }
  1258.     }
  1259. }
  1260.  
  1261. proc bigLeftBrace {} {
  1262.     if {[wrapObject "\\left\\\{" "\\right.•"]} then {
  1263.         message "formula delimited"
  1264.     } else {
  1265.         message "enter formula"
  1266.     }
  1267. }
  1268. proc otherMixedBigDelims {} {
  1269.     catch {prompt "Choose left delimiter:" "parenthesis" "" "parenthesis" "bracket" \
  1270.              "brace" "angle bracket" "vertical bar" "double bar" "ceiling" "floor"  \
  1271.              "slash" "backslash" "none"} delimType
  1272.     if {$delimType != "cancel"} then {
  1273.         case $delimType in {
  1274.             "parenthesis" {set leftDelim "("}
  1275.             "bracket" {set leftDelim "\["}
  1276.             "brace" {set leftDelim "\\\{"}
  1277.             "{angle bracket}" {set leftDelim "\\langle"}
  1278.             "{vertical bar}" {set leftDelim "|"}
  1279.             "{double bar}" {set leftDelim "\\|"}
  1280.             "ceiling" {set leftDelim "\\lceil"}
  1281.             "floor" {set leftDelim "\\lfloor"}
  1282.             "slash" {set leftDelim "/"}
  1283.             "backslash" {set leftDelim "\\backslash"}
  1284.             "none" {set leftDelim "."}
  1285.             default {
  1286.                 alertnote "\"$delimType\" not recognized"
  1287.                 return
  1288.             }
  1289.         }
  1290.         catch {prompt "Choose right delimiter:" "parenthesis" "" "parenthesis" "bracket" \
  1291.                 "brace" "angle bracket" "vertical bar" "double bar" "ceiling" "floor" \
  1292.                 "slash" "backslash" "none"} delimType
  1293.         if {$delimType != "cancel"} then {
  1294.             case $delimType in {
  1295.                 "parenthesis" {set rightDelim ")"}
  1296.                 "bracket" {set rightDelim "\]"}
  1297.                 "brace" {set rightDelim "\\\}"}
  1298.                 "{angle bracket}" {set rightDelim "\\rangle"}
  1299.                 "{vertical bar}" {set rightDelim "|"}
  1300.                 "{double bar}" {set rightDelim "\\|"}
  1301.                 "ceiling" {set rightDelim "\\rceil"}
  1302.                 "floor" {set rightDelim "\\rfloor"}
  1303.                 "slash" {set rightDelim "/"}
  1304.                 "backslash" {set rightDelim "\\backslash"}
  1305.                 "none" {set rightDelim "."}
  1306.                 default {
  1307.                     alertnote "\"$delimType\" not recognized"
  1308.                     return
  1309.                 }
  1310.             }
  1311.             if {[wrapObject "\\left$leftDelim" "\\right$rightDelim•"]} then {
  1312.                 message "formula delimited"
  1313.             } else {
  1314.                 message "enter formula"
  1315.             }
  1316.         }
  1317.     }
  1318. }
  1319.  
  1320. # Accents:
  1321. proc hat {} {
  1322.     if {[isSelection] > 1} then {
  1323.         beep
  1324.         alertnote "Warning: only a single character may be accented!"
  1325.     }
  1326.     if {[wrapObject "\\hat{" "}•"]} then {
  1327.         message "accent set"
  1328.     } else {
  1329.         message "enter one character"
  1330.     }
  1331. }
  1332. proc check {} {
  1333.     if {[isSelection] > 1} then {
  1334.         beep
  1335.         alertnote "Warning: only a single character may be accented!"
  1336.     }
  1337.     if {[wrapObject "\\check{" "}•"]} then {
  1338.         message "accent set"
  1339.     } else {
  1340.         message "enter one character"
  1341.     }
  1342. }
  1343. proc breve {} {
  1344.     if {[isSelection] > 1} then {
  1345.         beep
  1346.         alertnote "Warning: only a single character may be accented!"
  1347.     }
  1348.     if {[wrapObject "\\breve{" "}•"]} then {
  1349.         message "accent set"
  1350.     } else {
  1351.         message "enter one character"
  1352.     }
  1353. }
  1354. proc acuteAccent {} {
  1355.     if {[isSelection] > 1} then {
  1356.         beep
  1357.         alertnote "Warning: only a single character may be accented!"
  1358.     }
  1359.     if {[wrapObject "\\acute{" "}•"]} then {
  1360.         message "accent set"
  1361.     } else {
  1362.         message "enter one character"
  1363.     }
  1364. }
  1365. proc graveAccent {} {
  1366.     if {[isSelection] > 1} then {
  1367.         beep
  1368.         alertnote "Warning: only a single character may be accented!"
  1369.     }
  1370.     if {[wrapObject "\\grave{" "}•"]} then {
  1371.         message "accent set"
  1372.     } else {
  1373.         message "enter one character"
  1374.     }
  1375. }
  1376. proc tilde {} {
  1377.     if {[isSelection] > 1} then {
  1378.         beep
  1379.         alertnote "Warning: only a single character may be accented!"
  1380.     }
  1381.     if {[wrapObject "\\tilde{" "}•"]} then {
  1382.         message "accent set"
  1383.     } else {
  1384.         message "enter one character"
  1385.     }
  1386. }
  1387. proc bar {} {
  1388.     if {[isSelection] > 1} then {
  1389.         beep
  1390.         alertnote "Warning: only a single character may be accented!"
  1391.     }
  1392.     if {[wrapObject "\\bar{" "}•"]} then {
  1393.         message "accent set"
  1394.     } else {
  1395.         message "enter one character"
  1396.     }
  1397. }
  1398. proc vector {} {
  1399.     if {[isSelection] > 1} then {
  1400.         beep
  1401.         alertnote "Warning: only a single character may be accented!"
  1402.     }
  1403.     if {[wrapObject "\\vec{" "}•"]} then {
  1404.         message "accent set"
  1405.     } else {
  1406.         message "enter one character"
  1407.     }
  1408. }
  1409. proc dot {} {
  1410.     if {[isSelection] > 1} then {
  1411.         beep
  1412.         alertnote "Warning: only a single character may be accented!"
  1413.     }
  1414.     if {[wrapObject "\\dot{" "}•"]} then {
  1415.         message "accent set"
  1416.     } else {
  1417.         message "enter one character"
  1418.     }
  1419. }
  1420. proc dblDot {} {
  1421.     if {[isSelection] > 1} then {
  1422.         beep
  1423.         alertnote "Warning: only a single character may be accented!"
  1424.     }
  1425.     if {[wrapObject "\\ddot{" "}•"]} then {
  1426.         message "accent set"
  1427.     } else {
  1428.         message "enter one character"
  1429.     }
  1430. }
  1431.  
  1432. proc wideHat {} {
  1433.     if {[isSelection] > 3} then {
  1434.         beep
  1435.         alertnote "Warning: only a few characters may be accented!"
  1436.     }
  1437.     if {[wrapObject "\\widehat{" "}•"]} then {
  1438.         message "accent set"
  1439.     } else {
  1440.         message "enter a few characters"
  1441.     }
  1442. }
  1443. proc wideTilde {} {
  1444.     if {[isSelection] > 3} then {
  1445.         beep
  1446.         alertnote "Warning: only a few characters may be accented!"
  1447.     }
  1448.     if {[wrapObject "\\widetilde{" "}•"]} then {
  1449.         message "accent set"
  1450.     } else {
  1451.         message "enter a few characters"
  1452.     }
  1453. }
  1454.  
  1455. proc dotlessI {} {insertObject "\\imath"}
  1456. proc dotlessJ {} {insertObject "\\jmath"}
  1457.  
  1458. # Grouping:
  1459. proc underline {} {
  1460.     if {[wrapObject "\\underline{" "}•"]} then {
  1461.         message "selection underlined"
  1462.     } else {
  1463.         message "enter text"
  1464.     }
  1465. }
  1466. proc overline {} {
  1467.     if {[wrapObject "\\overline{" "}•"]} then {
  1468.         message "selection overlined"
  1469.     } else {
  1470.         message "enter text"
  1471.     }
  1472. }
  1473. proc underbrace {} {
  1474.     if {[wrapObject "\\underbrace{" "}•"]} then {
  1475.         message "selection underbraced"
  1476.     } else {
  1477.         message "enter text"
  1478.     }
  1479. }
  1480. proc overbrace {} {
  1481.     if {[wrapObject "\\overbrace{" "}•"]} then {
  1482.         message "selection overbraced"
  1483.     } else {
  1484.         message "enter text"
  1485.     }
  1486. }
  1487. proc stack {} {
  1488.     set currentPos [getPos]
  1489.     if {[insertObject "\\stackrel{•}{•}•"]} then {
  1490.         goto $currentPos
  1491.         nextTabStop
  1492.         message "1st arg scriptstyle"
  1493.     }
  1494. }
  1495.  
  1496. # Spacing:
  1497. proc thin {} {insertObject "\\,"}
  1498. proc negThin {} {insertObject "\\!"}
  1499. proc medium {} {insertObject "\\:"}
  1500. proc thick {} {insertObject "\\;"}
  1501. proc quad {} {insertObject "\\quad"}
  1502. proc dblQuad {} {insertObject "\\qquad"}
  1503.  
  1504. # Math Style:
  1505. proc mathItalic {} {
  1506.     if {[wrapObject "{\\mit " "}•"]} then {
  1507.         message "math italics set"
  1508.     } else {
  1509.         message "enter italicized text"
  1510.     }
  1511. }
  1512. proc calligraphic {} {
  1513.     # Check for upper-case arguments only:
  1514.     if {[wrapObject "{\\cal " "}•"]} then {
  1515.         message "calligraphics set"
  1516.     } else {
  1517.         message "enter text"
  1518.     }
  1519. }
  1520. proc fraktur {} {
  1521.     alertnote "Not yet implemented."
  1522. }
  1523. proc script {} {
  1524.     alertnote "Not yet implemented."
  1525. }
  1526. proc blackboardBold {} {
  1527.     alertnote "Not yet implemented."
  1528. }
  1529. proc displayStyle {} {
  1530.     if {[wrapObject "{\\displaystyle " "}•"]} then {
  1531.         message "displaystyle set"
  1532.     } else {
  1533.         message "enter displaystyle text"
  1534.     }
  1535. }
  1536. proc textStyle {} {
  1537.     if {[wrapObject "{\\textstyle " "}•"]} then {
  1538.         message "textstyle set"
  1539.     } else {
  1540.         message "enter textstyle text"
  1541.     }
  1542. }
  1543. proc scriptStyle {} {
  1544.     if {[wrapObject "{\\scriptstyle " "}•"]} then {
  1545.         message "scriptstyle set"
  1546.     } else {
  1547.         message "enter scriptstyle text"
  1548.     }
  1549. }
  1550. proc scriptscriptStyle {} {
  1551.     if {[wrapObject "{\\scriptscriptstyle " "}•"]} then {
  1552.         message "scriptscriptstyle set"
  1553.     } else {
  1554.         message "enter scriptscriptstyle text"
  1555.     }
  1556. }
  1557.  
  1558.  
  1559. #############################################################################
  1560. #
  1561. # LaTeX Menu Definition.
  1562. #
  1563. #############################################################################
  1564.  
  1565. proc interpretMenuItem {menu item} {
  1566.     switch $item {
  1567.         "list" {set func "myList"}
  1568.         "array" {set func "myArray"}
  1569.         "eqnarray\*" {set func "eqnarrayStar"}
  1570.         default {set func $item}
  1571.     }
  1572.     eval $func
  1573. }
  1574.  
  1575.  
  1576. #================================================================================
  1577. proc latex {} {
  1578.     global latexPath
  1579.     set sig ""
  1580.     set name [checkRunning LaTeX {OTEX *TEX *XeT MPS* TeX+} latexPath]
  1581.     if {![string length $name]} return
  1582.     switchTo $name
  1583. }
  1584.  
  1585. proc commentLine {} {
  1586.     beginningOfLine
  1587.     insertText "% "
  1588.     nextLine
  1589.     beginningOfLine
  1590. }
  1591.  
  1592.  
  1593. proc TeXMarkFile {} {
  1594.     set end [maxPos]
  1595.     set pos 0
  1596.     set l {}
  1597.  
  1598.     # Remove all previous marks in this file?
  1599.     set exp {\\((sub)*section|chapter)(\[.*\]|\*)?{([^{}]*)}}
  1600.     while {![catch {search -f 1 -r 1 -m 0 -i 0 $exp $pos} res]} {
  1601.         set start [lindex $res 0]
  1602.         set end [lindex $res 1]
  1603.         set text [getText $start $end]
  1604.         if {[regexp {\{(.*)\}} $text dummy mtch]} {
  1605.             set lab ""
  1606.             if {[regexp {(sub)*section} $text title]} then {
  1607.                 append lab $l [format "%[expr [string length $title] - 7]\s" ""]
  1608.             } else {
  1609.                 set l {   }
  1610.             }
  1611.             append lab $mtch
  1612.             setNamedMark $lab [lineStart [expr $start - 1]] $start $start
  1613.         }
  1614.         set pos [expr $end+1]
  1615.     }
  1616. }
  1617.  
  1618.     
  1619. # Open file in same directory, expect name w/o extension selected.
  1620. proc openInputFile {} {
  1621.     set text [getSelect].tex
  1622.     if {[string length $text] < 5} { beep; return }
  1623.     foreach f [winNames] {
  1624.         if {$f == $text} {
  1625.             bringToFront $f
  1626.             return
  1627.         }
  1628.     }
  1629.     edit [file dirname [lindex [winNames -f] 0]]:$text
  1630. }
  1631.  
  1632.  
  1633. menu -n $latexMenu  {
  1634.     "/-latex"
  1635.     "openInputFile"
  1636.     "(-"
  1637.     {menu -n Documents -p interpretMenuItem {
  1638.         "letter"
  1639.         "article"
  1640.         "report"
  1641.         "book"
  1642.         "(-"
  1643.         "custom…"}
  1644.     }
  1645.     
  1646.     {menu -n Sectioning -p interpretMenuItem {
  1647.         "part"
  1648.         "chapter"
  1649.         "section"
  1650.         "subsection"
  1651.         "subsubsection"
  1652.         "paragraph"
  1653.         "subparagraph"}
  1654.     }
  1655.     
  1656.     {menu -n (Definitions -p interpretMenuItem {
  1657.         "list…"
  1658.         "(-"
  1659.         "newcommand…"
  1660.         "newenvironment…"
  1661.         "newtheorem…"
  1662.         "(-"
  1663.         "renewcommand…"
  1664.         "renewenvironment…"}
  1665.     }
  1666.     
  1667.     "(-"
  1668.     
  1669.     {menu -n TextStyle -p interpretMenuItem {
  1670.         "roman"
  1671.         "bold"
  1672.         "italic"
  1673.         "emphatic"
  1674.         "slanted"
  1675.         "sansSerif"
  1676.         "smallCaps"
  1677.         "typewriter"}
  1678.     }
  1679.     
  1680.     {menu -n TextSize -p interpretMenuItem {
  1681.         "tiny"
  1682.         "smallest"
  1683.         "smaller"
  1684.         "small"
  1685.         "normal"
  1686.         "large"
  1687.         "larger"
  1688.         "largest"
  1689.         "huge"
  1690.         "gigantic"}
  1691.     }
  1692.     
  1693.     {menu -n (International -p interpretMenuItem {
  1694.         }
  1695.     }
  1696.     
  1697.     {menu -n Environments -p interpretMenuItem {
  1698.         "enumerate…"
  1699.         "itemize…"
  1700.         "description…"
  1701.         "(-"
  1702.         "tabular…"
  1703.         "(tabbing"
  1704.         "(-"
  1705.         "figure"
  1706.         "table"
  1707.         "slide"
  1708.         "(-"
  1709.         "verbatim"
  1710.         "quote"
  1711.         "quotation"
  1712.         "verse"
  1713.         "(-"
  1714.         "(index…"
  1715.         "bibliography…"
  1716.         "(-"
  1717.         "general…"}
  1718.     }
  1719.     
  1720.     {menu -n Boxes -p interpretMenuItem {
  1721.         "mbox"
  1722.         "(fbox"
  1723.         "(parbox"}
  1724.     }
  1725.     
  1726.     {menu -n Miscellaneous -p interpretMenuItem {
  1727.         "ellipsis"
  1728.         "sectionMark"
  1729.         "paragraphMark"
  1730.         "dagger"
  1731.         "dblDagger"
  1732.         "en-dash"
  1733.         "em-dash"
  1734.         "texLogo"
  1735.         "latexLogo"
  1736.         "copyright"
  1737.         "pounds"
  1738.         "today"
  1739.         "(-"
  1740.         "quotes"
  1741.         "dblQuotes"
  1742.         "(-"
  1743.         "note"
  1744.         "footnote"
  1745.         "(-"
  1746.         "label"
  1747.         "crossRef"
  1748.         "pageRef"
  1749.         "citation"
  1750.         "(-"
  1751.         "item"
  1752.         "bibitem"
  1753.         }
  1754.     }
  1755.     
  1756.     "(-"
  1757.     
  1758.     {menu -n mathModes -p interpretMenuItem {
  1759.         "texMath"
  1760.         "texDisplaymath"
  1761.         "(-"
  1762.         "latexMath"
  1763.         "latexDisplaymath"}
  1764.     }
  1765.     
  1766.     {menu -n mathEnvironments -p interpretMenuItem {
  1767.         "math"
  1768.         "displaymath"
  1769.         "equation"
  1770.         "(-"
  1771.         "array…"
  1772.         "eqnarray…"
  1773.         "eqnarray*…"
  1774.         "(-"
  1775.         "general…"}
  1776.     }
  1777.     
  1778.     {menu -n Formulas -p interpretMenuItem {
  1779.         "subscript"
  1780.         "superscript"
  1781.         "fraction"
  1782.         "squareRoot"
  1783.         "nthRoot"
  1784.         "(-"
  1785.         "oneParameter…"
  1786.         "twoParameters…"
  1787.         }
  1788.     }
  1789.     
  1790.     {menu -n Greek -p interpretMenuItem {
  1791.         "alpha"
  1792.         "beta"
  1793.         "gamma"
  1794.         "delta"
  1795.         "epsilon"
  1796.         "zeta"
  1797.         "eta"
  1798.         "theta"
  1799.         "iota"
  1800.         "kappa"
  1801.         "lambda"
  1802.         "mu"
  1803.         "nu"
  1804.         "xi"
  1805.         "pi"
  1806.         "rho"
  1807.         "sigma"
  1808.         "tau"
  1809.         "upsilon"
  1810.         "phi"
  1811.         "chi"
  1812.         "psi"
  1813.         "omega"
  1814.         }
  1815.     }
  1816.     {menu -n Greek2 -p interpretMenuItem {
  1817.         "capGamma"
  1818.         "capDelta"
  1819.         "capTheta"
  1820.         "capLambda"
  1821.         "capXi"
  1822.         "capPi"
  1823.         "capSigma"
  1824.         "capUpsilon"
  1825.         "capPhi"
  1826.         "capPsi"
  1827.         "capOmega"
  1828.         "(-"
  1829.         "varEpsilon"
  1830.         "varTheta"
  1831.         "varPi"
  1832.         "varRho"
  1833.         "varSigma"
  1834.         "varPhi"
  1835.         }
  1836.     }
  1837.         
  1838.     {menu -n BinaryOperators -p interpretMenuItem {
  1839.         "plusOrMinus"
  1840.         "minusOrPlus"
  1841.         "multiply"
  1842.         "divide"
  1843.         "asterisk"
  1844.         "star"
  1845.         "centerDot"
  1846.         "bullet"
  1847.         "circle"
  1848.         "bigCircle"
  1849.         "intersection"
  1850.         "union"
  1851.         "logicalAnd"
  1852.         "logicalOr"
  1853.         "setMinus"
  1854.         }
  1855.     }
  1856.     
  1857.     {menu -n Relations -p interpretMenuItem {
  1858.         "notEqual"
  1859.         "lessOrEqual"
  1860.         "greaterOrEqual"
  1861.         "subset"
  1862.         "superset"
  1863.         "subsetOrEqual"
  1864.         "supersetOrEqual"
  1865.         "elementOf"
  1866.         "equivalent"
  1867.         "similar"
  1868.         "similarEqual"
  1869.         "dotEqual"
  1870.         "approximate"
  1871.         "congruent"
  1872.         }
  1873.     }
  1874.     
  1875.     {menu -n LargeOperators -p interpretMenuItem {
  1876.         "sum"
  1877.         "product"
  1878.         "integral"
  1879.         "bigUnion"
  1880.         "bigIntersection"
  1881.         "bigAnd"
  1882.         "bigOr"
  1883.         }
  1884.     }
  1885.     
  1886.     {menu -n Arrows -p interpretMenuItem {
  1887.         "mapsTo"
  1888.         "leftArrow"
  1889.         "rightArrow"
  1890.         "left-rightArrow"
  1891.         "dblLeftArrow"
  1892.         "dblRightArrow"
  1893.         "dblLeft-rightArrow"
  1894.         }
  1895.     }
  1896.     
  1897.     {menu -n Dots -p interpretMenuItem {
  1898.         "centerDot"
  1899.         "bullet"
  1900.         "(-"
  1901.         "ellipsis"
  1902.         "centerDots"
  1903.         "verticalDots"
  1904.         "diagonalDots"
  1905.         }
  1906.     }
  1907.     
  1908.     {menu -n Symbols -p interpretMenuItem {
  1909.         "aleph"
  1910.         "emptySet"
  1911.         "negation"
  1912.         "forAll"
  1913.         "exists"
  1914.         "scriptL"
  1915.         "nabla"
  1916.         "partial"
  1917.         "infinity"
  1918.         "backslash"
  1919.         "angle"
  1920.         "box"
  1921.         "diamond"
  1922.         "triangle"
  1923.         }
  1924.     }
  1925.         
  1926.     {menu -n (Functions -p interpretMenuItem {
  1927.         }
  1928.     }
  1929.  
  1930.     {menu -n Delimiters -p interpretMenuItem {
  1931.         "parentheses"
  1932.         "brackets"
  1933.         "braces"
  1934.         "absoluteValue"
  1935.         "otherDelims…"
  1936.         "(-"
  1937.         "half-openInterval"
  1938.         "half-closedInterval"
  1939.         "(-"
  1940.         "bigParentheses"
  1941.         "bigBrackets"
  1942.         "bigBraces"
  1943.         "bigAbsoluteValue"
  1944.         "otherBigDelims…"
  1945.         "(-"
  1946.         "bigLeftBrace"
  1947.         "otherMixedBigDelims…"
  1948.         }
  1949.     }
  1950.         
  1951.     {menu -n mathAccents -p interpretMenuItem {
  1952.         "hat"
  1953.         "check"
  1954.         "breve"
  1955.         "acuteAccent"
  1956.         "graveAccent"
  1957.         "tilde"
  1958.         "bar"
  1959.         "vector"
  1960.         "dot"
  1961.         "dblDot"
  1962.         "(-"
  1963.         "wideHat"
  1964.         "wideTilde"
  1965.         "(-"
  1966.         "dotlessI"
  1967.         "dotlessJ"
  1968.         }
  1969.     }
  1970.     
  1971.     {menu -n Grouping -p interpretMenuItem {
  1972.         "underline"
  1973.         "overline"
  1974.         "underbrace"
  1975.         "overbrace"
  1976.         "(-"
  1977.         "stack"
  1978.         }
  1979.     }
  1980.     
  1981.     {menu -n Spacing -p interpretMenuItem {
  1982.         "thin"
  1983.         "negThin"
  1984.         "medium"
  1985.         "thick"
  1986.         "(-"
  1987.         "quad"
  1988.         "dblQuad"
  1989.         }
  1990.     }
  1991.     
  1992.     {menu -n MathStyle -p interpretMenuItem {
  1993.         "mathItalic"
  1994.         "calligraphic"
  1995.         "(-"
  1996.         "(fraktur"
  1997.         "(script"
  1998.         "(blackboardBold"
  1999.         "(-"
  2000.         "displayStyle"
  2001.         "textStyle"
  2002.         "scriptStyle"
  2003.         "scriptscriptStyle"
  2004.         }
  2005.     }
  2006. }
  2007.  
  2008.  
  2009. #############################################################################
  2010. #
  2011. # Special Key Bindings.
  2012. #
  2013. # abbreviations:  <o> = option, <z> = control, <s> = shift, <c> = command
  2014. #
  2015. #############################################################################
  2016.  
  2017. bind 0x14 <z> commentLine TeX
  2018. if {$optionIsMeta == "0"} then {
  2019.  
  2020.     #  use option for macros, escape for meta
  2021.  
  2022.     bind    'a'    <o>    alpha    "TeX"
  2023.     bind    'a'    <os>    angle    "TeX"
  2024.     bind    'a'    <oz>    forAll    "TeX"
  2025.     bind    'a'    <co>    acuteAccent    "TeX"
  2026.     
  2027.     bind    'b'    <o>    beta    "TeX"
  2028.     bind    'b'    <oz>    box    "TeX"
  2029.     bind    'b'    <co>    bar    "TeX"
  2030.     bind    'b'    <cs>    bold    "TeX"
  2031.     
  2032.     bind    'c'    <o>    chi    "TeX"
  2033.     bind    'c'    <co>    check    "TeX"
  2034.     bind    'c'    <cs>    citation    "TeX"
  2035.     bind    'c'    <cso>    calligraphic    "TeX"
  2036.     
  2037.     bind    'd'    <o>    delta    "TeX"
  2038.     bind    'd'    <os>    capDelta    "TeX"
  2039.     bind    'd'    <oz>    diamond    "TeX"
  2040.     bind    'd'    <co>    dot    "TeX"
  2041.     bind    'd'    <cso>    dblDot    "TeX"
  2042.     
  2043.     bind    'e'    <o>    epsilon    "TeX"
  2044.     bind    'e'    <os>    exists    "TeX"
  2045.     bind    'e'    <oz>    varEpsilon    "TeX"
  2046.     bind    'e'    <cs>    emphatic    "TeX"
  2047.     
  2048.     bind    'f'    <o>    phi    "TeX"
  2049.     bind    'f'    <os>    capPhi    "TeX"
  2050.     bind    'f'    <oz>    varPhi    "TeX"
  2051.     bind    'f'    <co>    fraction    "TeX"
  2052.     bind    'f'    <cs>    footnote    "TeX"
  2053.     
  2054.     bind    'g'    <o>    gamma    "TeX"
  2055.     bind    'g'    <os>    capGamma    "TeX"
  2056.     bind    'g'    <oz>    copyright    "TeX"
  2057.     bind    'g'    <co>    graveAccent    "TeX"
  2058.     
  2059.     bind    'h'    <o>    eta    "TeX"
  2060.     bind    'h'    <co>    hat    "TeX"
  2061.     bind    'h'    <cs>    smallCaps    "TeX"
  2062.     bind    'h'    <cso>    wideHat    "TeX"
  2063.     
  2064.     bind    'i'    <o>    iota    "TeX"
  2065.     bind    'i'    <oz>    dotlessI    "TeX"
  2066.     bind    'i'    <co>    integral    "TeX"
  2067.     bind    'i'    <cs>    italic    "TeX"
  2068.     bind    'i'    <cso>    mathItalic    "TeX"
  2069.     
  2070.     bind    'j'    <o>    partial    "TeX"
  2071.     bind    'j'    <oz>    dotlessJ    "TeX"
  2072.     
  2073.     bind    'k'    <o>    kappa    "TeX"
  2074.     
  2075.     bind    'l'    <o>    lambda    "TeX"
  2076.     bind    'l'    <os>    capLambda    "TeX"
  2077.     bind    'l'    <oz>    scriptL    "TeX"
  2078.     bind    'l'    <cs>    label    "TeX"
  2079.     
  2080.     bind    'm'    <o>    mu    "TeX"
  2081.     bind    'm'    <oz>    mapsTo    "TeX"
  2082.     bind    'm'    <co>    mbox    "TeX"
  2083.     bind    'm'    <cs>    mbox    "TeX"
  2084.     
  2085.     bind    'n'    <o>    nu    "TeX"
  2086.     bind    'n'    <os>    aleph    "TeX"
  2087.     bind    'n'    <oz>    intersection    "TeX"
  2088.     bind    'n'    <co>    nthRoot    "TeX"
  2089.     bind    'n'    <cs>    note    "TeX"
  2090.     
  2091.     bind    'o'    <o>    circle    "TeX"
  2092.     bind    'o'    <os>    bigCircle    "TeX"
  2093.     bind    'o'    <co>    overline    "TeX"
  2094.     bind    'o'    <cso>    overbrace    "TeX"
  2095.     
  2096.     bind    'p'    <o>    pi    "TeX"
  2097.     bind    'p'    <os>    capPi    "TeX"
  2098.     bind    'p'    <oz>    varPi    "TeX"
  2099.     bind    'p'    <co>    product    "TeX"
  2100.     bind    'p'    <cs>    pageRef    "TeX"
  2101.     
  2102.     bind    'q'    <o>    theta    "TeX"
  2103.     bind    'q'    <os>    capTheta    "TeX"
  2104.     bind    'q'    <oz>    varTheta    "TeX"
  2105.     
  2106.     bind    'r'    <o>    rho    "TeX"
  2107.     bind    'r'    <oz>    varRho    "TeX"
  2108.     bind    'r'    <co>    squareRoot    "TeX"
  2109.     bind    'r'    <cs>    roman    "TeX"
  2110.     
  2111.     bind    's'    <o>    sigma    "TeX"
  2112.     bind    's'    <os>    capSigma    "TeX"
  2113.     bind    's'    <oz>    varSigma    "TeX"
  2114.     bind    's'    <co>    sum    "TeX"
  2115.     bind    's'    <cs>    slanted    "TeX"
  2116.     
  2117.     bind    't'    <o>    tau    "TeX"
  2118.     bind    't'    <os>    dagger    "TeX"
  2119.     bind    't'    <oz>    triangle    "TeX"
  2120.     bind    't'    <co>    tilde    "TeX"
  2121.     bind    't'    <cs>    typewriter    "TeX"
  2122.     bind    't'    <cso>    wideTilde    "TeX"
  2123.     
  2124.     bind    'u'    <o>    upsilon    "TeX"
  2125.     bind    'u'    <os>    capUpsilon    "TeX"
  2126.     bind    'u'    <oz>    union    "TeX"
  2127.     bind    'u'    <co>    underline    "TeX"
  2128.     bind    'u'    <cso>    underbrace    "TeX"
  2129.     
  2130.     bind    'v'    <o>    nabla    "TeX"
  2131.     bind    'v'    <oz>    logicalOr    "TeX"
  2132.     bind    'v'    <co>    vector    "TeX"
  2133.     
  2134.     bind    'w'    <o>    omega    "TeX"
  2135.     bind    'w'    <os>    capOmega    "TeX"
  2136.     bind    'w'    <oz>    logicalAnd    "TeX"
  2137.     bind    'w'    <cs>    sansSerif    "TeX"
  2138.     
  2139.     bind    'x'    <o>    xi    "TeX"
  2140.     bind    'x'    <os>    capXi    "TeX"
  2141.     bind    'x'    <oz>    multiply    "TeX"
  2142.     bind    'x'    <cs>    crossRef    "TeX"
  2143.     
  2144.     bind    'y'    <o>    psi    "TeX"
  2145.     bind    'y'    <os>    capPsi    "TeX"
  2146.     
  2147.     bind    'z'    <o>    zeta    "TeX"
  2148.     
  2149.     bind    '\ '    <o>    thin    "TeX"
  2150.     bind    '\ '    <os>    negThin    "TeX"
  2151.     bind    '\ '    <oz>    medium    "TeX"
  2152.     bind    '\ '    <co>    thick    "TeX"
  2153.     bind    '\ '    <cs>    quad    "TeX"
  2154.     bind    '\ '    <cso>    dblQuad    "TeX"
  2155.     
  2156.     bind    ','    <o>    lessOrEqual    "TeX"
  2157.     bind    ','    <os>    subset    "TeX"
  2158.     bind    ','    <oz>    subsetOrEqual    "TeX"
  2159.     bind    ','    <co>    subscript    "TeX"
  2160.     
  2161.     bind    '.'    <o>    greaterOrEqual    "TeX"
  2162.     bind    '.'    <os>    superset    "TeX"
  2163.     bind    '.'    <oz>    supersetOrEqual    "TeX"
  2164.     bind    '.'    <co>    superscript    "TeX"
  2165.     
  2166.     bind    '/'    <o>    divide    "TeX"
  2167.     bind    '/'    <co>    fraction    "TeX"
  2168.     
  2169.     bind    '\;'    <o>    ellipsis    "TeX"
  2170.     bind    '\;'    <os>    centerDots    "TeX"
  2171.     bind    '\;'    <oz>    verticalDots    "TeX"
  2172.     bind    '\;'    <co>    diagonalDots    "TeX"
  2173.     
  2174.     # apostrophe:
  2175.     bind    0x27    <co>    acuteAccent    "TeX"
  2176.     bind    0x27    <cs>    quotes    "TeX"
  2177.     bind    0x27    <cso>    dblQuotes    "TeX"
  2178.  
  2179.     bind    '\['    <o>    brackets    "TeX"
  2180.     bind    '\['    <os>    braces    "TeX"
  2181.     bind    '\['    <co>    bigBrackets    "TeX"
  2182.     bind    '\['    <cso>    bigBraces    "TeX"
  2183.  
  2184.     bind    '\]'    <o>    displayStyle    "TeX"
  2185.     bind    '\]'    <os>    textStyle    "TeX"
  2186.     bind    '\]'    <oz>    scriptStyle    "TeX"
  2187.     bind    '\]'    <co>    scriptscriptStyle    "TeX"
  2188.     bind    '\]'    <cso>    bigLeftBrace    "TeX"
  2189.     
  2190.     bind    '\'    <o>    backslash    "TeX"
  2191.     bind    '\'    <os>    absoluteValue    "TeX"
  2192.     bind    '\'    <oz>    setMinus    "TeX"
  2193.     bind    '\'    <co>    bigAbsoluteValue    "TeX"
  2194.     bind    '\'    <cs>    "oneParameter"    "TeX"
  2195.     bind    '\'    <cso>    "twoParameters"    "TeX"
  2196.     
  2197.     bind    '`'    <co>    graveAccent    "TeX"
  2198.     bind    '`'    <cso>    tilde    "TeX"
  2199.         
  2200.     # Change to latexMath and latexDisplaymath, if desired:
  2201.     bind    '4'    <co>    texMath    "TeX"
  2202.     bind    '4'    <cso>    texDisplaymath    "TeX"
  2203.     
  2204.     bind    '5'    <o>    infinity    "TeX"
  2205.     
  2206.     bind    '6'    <o>    sectionMark    "TeX"
  2207.     bind    '6'    <co>    superscript    "TeX"
  2208.     
  2209.     bind    '7'    <o>    paragraphMark    "TeX"
  2210.     
  2211.     bind    '8'    <o>    bullet    "TeX"
  2212.     bind    '8'    <os>    asterisk    "TeX"
  2213.     bind    '8'    <oz>    centerDot    "TeX"
  2214.     
  2215.     bind    '9'    <os>    parentheses    "TeX"
  2216.     bind    '9'    <co>    bigParentheses    "TeX"
  2217.     
  2218.     bind    '0'    <oz>    emptySet    "TeX"
  2219.     
  2220.     bind    '-'    <o>    similar    "TeX"
  2221.     bind    '-'    <os>    minusOrPlus    "TeX"
  2222.     bind    '-'    <oz>    negation    "TeX"
  2223.     bind    '-'    <co>    subscript    "TeX"
  2224.     
  2225.     bind    '='    <o>    notEqual    "TeX"
  2226.     bind    '='    <os>    plusOrMinus    "TeX"
  2227.     bind    '='    <oz>    approximate    "TeX"
  2228.     bind    '='    <co>    bar    "TeX"
  2229.     
  2230.     bind    F5    <o>    math    "TeX"
  2231.     bind    F5    <os>    displaymath    "TeX"
  2232.     bind    F5    <oz>    equation    "TeX"
  2233.     
  2234.     bind    F6    <o>    "myArray"    "TeX"
  2235.     bind    F6    <os>    "eqnarray"    "TeX"
  2236.     bind    F6    <oz>    "eqnarrayStar"    "TeX"
  2237.     
  2238.     bind    F7    <o>    "enumerate"    "TeX"
  2239.     bind    F7    <os>    "itemize"    "TeX"
  2240.     bind    F7    <oz>    "description"    "TeX"
  2241.     
  2242.     bind    F8    <o>    "tabular"    "TeX"
  2243.     bind    F8    <os>    tabbing    "TeX"
  2244.     
  2245.     bind    F9    <o>    figure    "TeX"
  2246.     bind    F9    <os>    table    "TeX"
  2247.     bind    F9    <oz>    slide    "TeX"
  2248.     
  2249.     bind    F10    <o>    verbatim    "TeX"
  2250.     bind    F10    <os>    quote    "TeX"
  2251.     bind    F10    <oz>    quotation    "TeX"
  2252.     bind    F10    <co>    verse    "TeX"
  2253.     
  2254.     bind    F11    <o>    "index"    "TeX"
  2255.     bind    F11    <os>    "bibliography"    "TeX"
  2256.     
  2257.     bind    F12    <o>    "general"    "TeX"
  2258.     
  2259.     # tab:
  2260.     bind    0x30    nextTabStop    "TeX"
  2261.     bind    0x30    <s>     previousTabStop    "TeX"
  2262.     
  2263. } else {
  2264.     
  2265.     #    bind    macros    to    option-control,    use    option    as    meta
  2266.     
  2267.     bind    'a'    <zo>    alpha    "TeX"
  2268.     bind    'a'    <zos>    angle    "TeX"
  2269.     # bind    'a'    <oz>    forAll    "TeX"
  2270.     bind    'a'    <zco>    acuteAccent    "TeX"
  2271.     
  2272.     bind    'b'    <zo>    beta    "TeX"
  2273.     # bind    'b'    <oz>    box    "TeX"
  2274.     bind    'b'    <zco>    bar    "TeX"
  2275.     bind    'b'    <zcs>    bold    "TeX"
  2276.     
  2277.     bind    'c'    <zo>    chi    "TeX"
  2278.     bind    'c'    <zco>    check    "TeX"
  2279.     bind    'c'    <zcs>    citation    "TeX"
  2280.     bind    'c'    <zcso>    calligraphic    "TeX"
  2281.     
  2282.     bind    'd'    <zo>    delta    "TeX"
  2283.     bind    'd'    <zos>    capDelta    "TeX"
  2284.     # bind    'd'    <oz>    diamond    "TeX"
  2285.     bind    'd'    <zco>    dot    "TeX"
  2286.     bind    'd'    <zcso>    dblDot    "TeX"
  2287.     
  2288.     bind    'e'    <zo>    epsilon    "TeX"
  2289.     bind    'e'    <zos>    exists    "TeX"
  2290.     # bind    'e'    <oz>    varEpsilon    "TeX"
  2291.     bind    'e'    <zcs>    emphatic    "TeX"
  2292.     
  2293.     bind    'f'    <zo>    phi    "TeX"
  2294.     bind    'f'    <zos>    capPhi    "TeX"
  2295.     # bind    'f'    <oz>    varPhi    "TeX"
  2296.     bind    'f'    <zco>    fraction    "TeX"
  2297.     bind    'f'    <zcs>    footnote    "TeX"
  2298.     
  2299.     bind    'g'    <zo>    gamma    "TeX"
  2300.     bind    'g'    <zos>    capGamma    "TeX"
  2301.     # bind    'g'    <oz>    copyright    "TeX"
  2302.     bind    'g'    <zco>    graveAccent    "TeX"
  2303.     
  2304.     bind    'h'    <zo>    eta    "TeX"
  2305.     bind    'h'    <zco>    hat    "TeX"
  2306.     bind    'h'    <zcs>    smallCaps    "TeX"
  2307.     bind    'h'    <zcso>    wideHat    "TeX"
  2308.     
  2309.     bind    'i'    <zo>    iota    "TeX"
  2310.     # bind    'i'    <oz>    dotlessI    "TeX"
  2311.     bind    'i'    <zco>    integral    "TeX"
  2312.     bind    'i'    <zcs>    italic    "TeX"
  2313.     bind    'i'    <zcso>    mathItalic    "TeX"
  2314.     
  2315.     bind    'j'    <zo>    partial    "TeX"
  2316.     # bind    'j'    <oz>    dotlessJ    "TeX"
  2317.     
  2318.     bind    'k'    <zo>    kappa    "TeX"
  2319.     
  2320.     bind    'l'    <zo>    lambda    "TeX"
  2321.     bind    'l'    <zos>    capLambda    "TeX"
  2322.     # bind    'l'    <oz>    scriptL    "TeX"
  2323.     bind    'l'    <zcs>    label    "TeX"
  2324.     
  2325.     bind    'm'    <zo>    mu    "TeX"
  2326.     # bind    'm'    <oz>    mapsTo    "TeX"
  2327.     bind    'm'    <zco>    mbox    "TeX"
  2328.     bind    'm'    <zcs>    mbox    "TeX"
  2329.     
  2330.     bind    'n'    <zo>    nu    "TeX"
  2331.     bind    'n'    <zos>    aleph    "TeX"
  2332.     # bind    'n'    <oz>    intersection    "TeX"
  2333.     bind    'n'    <zco>    nthRoot    "TeX"
  2334.     bind    'n'    <zcs>    note    "TeX"
  2335.     
  2336.     bind    'o'    <zo>    circle    "TeX"
  2337.     bind    'o'    <zos>    bigCircle    "TeX"
  2338.     bind    'o'    <zco>    overline    "TeX"
  2339.     bind    'o'    <zcso>    overbrace    "TeX"
  2340.     
  2341.     bind    'p'    <zo>    pi    "TeX"
  2342.     bind    'p'    <zos>    capPi    "TeX"
  2343.     # bind    'p'    <oz>    varPi    "TeX"
  2344.     bind    'p'    <zco>    product    "TeX"
  2345.     bind    'p'    <zcs>    pageRef    "TeX"
  2346.     
  2347.     bind    'q'    <zo>    theta    "TeX"
  2348.     bind    'q'    <zos>    capTheta    "TeX"
  2349.     # bind    'q'    <oz>    varTheta    "TeX"
  2350.     
  2351.     bind    'r'    <zo>    rho    "TeX"
  2352.     # bind    'r'    <oz>    varRho    "TeX"
  2353.     bind    'r'    <zco>    squareRoot    "TeX"
  2354.     bind    'r'    <zcs>    roman    "TeX"
  2355.     
  2356.     bind    's'    <zo>    sigma    "TeX"
  2357.     bind    's'    <zos>    capSigma    "TeX"
  2358.     # bind    's'    <oz>    varSigma    "TeX"
  2359.     bind    's'    <zco>    sum    "TeX"
  2360.     bind    's'    <zcs>    slanted    "TeX"
  2361.     
  2362.     bind    't'    <zo>    tau    "TeX"
  2363.     bind    't'    <zos>    dagger    "TeX"
  2364.     # bind    't'    <oz>    triangle    "TeX"
  2365.     bind    't'    <zco>    tilde    "TeX"
  2366.     bind    't'    <zcs>    typewriter    "TeX"
  2367.     bind    't'    <zcso>    wideTilde    "TeX"
  2368.     
  2369.     bind    'u'    <zo>    upsilon    "TeX"
  2370.     bind    'u'    <zos>    capUpsilon    "TeX"
  2371.     # bind    'u'    <oz>    union    "TeX"
  2372.     bind    'u'    <zco>    underline    "TeX"
  2373.     bind    'u'    <zcso>    underbrace    "TeX"
  2374.     
  2375.     bind    'v'    <zo>    nabla    "TeX"
  2376.     # bind    'v'    <oz>    logicalOr    "TeX"
  2377.     bind    'v'    <zco>    vector    "TeX"
  2378.     
  2379.     bind    'w'    <zo>    omega    "TeX"
  2380.     bind    'w'    <zos>    capOmega    "TeX"
  2381.     # bind    'w'    <oz>    logicalAnd    "TeX"
  2382.     bind    'w'    <zcs>    sansSerif    "TeX"
  2383.     
  2384.     bind    'x'    <zo>    xi    "TeX"
  2385.     bind    'x'    <zos>    capXi    "TeX"
  2386.     # bind    'x'    <oz>    multiply    "TeX"
  2387.     bind    'x'    <zcs>    crossRef    "TeX"
  2388.     
  2389.     bind    'y'    <zo>    psi    "TeX"
  2390.     bind    'y'    <zos>    capPsi    "TeX"
  2391.     
  2392.     bind    'z'    <zo>    zeta    "TeX"
  2393.     
  2394.     bind    '\ '    <zo>    thin    "TeX"
  2395.     bind    '\ '    <zos>    negThin    "TeX"
  2396.     # bind    '\ '    <oz>    medium    "TeX"
  2397.     bind    '\ '    <zco>    thick    "TeX"
  2398.     bind    '\ '    <zcs>    quad    "TeX"
  2399.     bind    '\ '    <zcso>    dblQuad    "TeX"
  2400.     
  2401.     bind    ','    <zo>    lessOrEqual    "TeX"
  2402.     bind    ','    <zos>    subset    "TeX"
  2403.     # bind    ','    <oz>    subsetOrEqual    "TeX"
  2404.     bind    ','    <zco>    subscript    "TeX"
  2405.     
  2406.     bind    '.'    <zo>    greaterOrEqual    "TeX"
  2407.     bind    '.'    <zos>    superset    "TeX"
  2408.     # bind    '.'    <oz>    supersetOrEqual    "TeX"
  2409.     bind    '.'    <zco>    superscript    "TeX"
  2410.     
  2411.     bind    '/'    <zo>    divide    "TeX"
  2412.     bind    '/'    <zco>    fraction    "TeX"
  2413.     
  2414.     bind    '\;'    <zo>    ellipsis    "TeX"
  2415.     bind    '\;'    <zos>    centerDots    "TeX"
  2416.     # bind    '\;'    <oz>    verticalDots    "TeX"
  2417.     bind    '\;'    <zco>    diagonalDots    "TeX"
  2418.     
  2419.     # apostrophe:
  2420.     bind    0x27    <zco>    acuteAccent    "TeX"
  2421.     bind    0x27    <zcs>    quotes    "TeX"
  2422.     bind    0x27    <zcso>    dblQuotes    "TeX"
  2423.  
  2424.     bind    '\['    <zo>    brackets    "TeX"
  2425.     bind    '\['    <zos>    braces    "TeX"
  2426.     bind    '\['    <zco>    bigBrackets    "TeX"
  2427.     bind    '\['    <zcso>    bigBraces    "TeX"
  2428.  
  2429.     bind    '\]'    <zo>    displayStyle    "TeX"
  2430.     bind    '\]'    <zos>    textStyle    "TeX"
  2431.     # bind    '\]'    <oz>    scriptStyle    "TeX"
  2432.     bind    '\]'    <zco>    scriptscriptStyle    "TeX"
  2433.     bind    '\]'    <zcso>    bigLeftBrace    "TeX"
  2434.     
  2435.     bind    '\'    <zo>    backslash    "TeX"
  2436.     bind    '\'    <zos>    absoluteValue    "TeX"
  2437.     # bind    '\'    <oz>    setMinus    "TeX"
  2438.     bind    '\'    <zco>    bigAbsoluteValue    "TeX"
  2439.     bind    '\'    <zcs>    "oneParameter"    "TeX"
  2440.     bind    '\'    <zcso>    "twoParameters"    "TeX"
  2441.     
  2442.     bind    '`'    <zco>    graveAccent    "TeX"
  2443.     bind    '`'    <zcso>    tilde    "TeX"
  2444.     
  2445.     # Change to latexMath and latexDisplaymath, if desired:
  2446.     bind    '4'    <zco>    texMath    "TeX"
  2447.     bind    '4'    <zcso>    texDisplaymath    "TeX"
  2448.     
  2449.     bind    '5'    <zo>    infinity    "TeX"
  2450.     
  2451.     bind    '6'    <zo>    sectionMark    "TeX"
  2452.     bind    '6'    <zco>    superscript    "TeX"
  2453.     
  2454.     bind    '7'    <zo>    paragraphMark    "TeX"
  2455.     
  2456.     bind    '8'    <zo>    bullet    "TeX"
  2457.     bind    '8'    <zos>    asterisk    "TeX"
  2458.     # bind    '8'    <oz>    centerDot    "TeX"
  2459.     
  2460.     bind    '9'    <zos>    parentheses    "TeX"
  2461.     bind    '9'    <zco>    bigParentheses    "TeX"
  2462.     
  2463.     # bind    '0'    <oz>    emptySet    "TeX"
  2464.     
  2465.     bind    '-'    <zo>    similar    "TeX"
  2466.     bind    '-'    <zos>    minusOrPlus    "TeX"
  2467.     # bind    '-'    <oz>    negation    "TeX"
  2468.     bind    '-'    <zco>    subscript    "TeX"
  2469.     
  2470.     bind    '='    <zo>    notEqual    "TeX"
  2471.     bind    '='    <zos>    plusOrMinus    "TeX"
  2472.     # bind    '='    <oz>    approximate    "TeX"
  2473.     bind    '='    <zco>    bar    "TeX"
  2474.     
  2475.     bind    F5    <zo>    math    "TeX"
  2476.     bind    F5    <zos>    displaymath    "TeX"
  2477.     # bind    F5    <oz>    equation    "TeX"
  2478.     
  2479.     bind    F6    <zo>    "myArray"    "TeX"
  2480.     bind    F6    <zos>    "eqnarray"    "TeX"
  2481.     # bind    F6    <oz>    "eqnarrayStar"    "TeX"
  2482.     
  2483.     bind    F7    <zo>    "enumerate"    "TeX"
  2484.     bind    F7    <zos>    "itemize"    "TeX"
  2485.     # bind    F7    <oz>    "description"    "TeX"
  2486.     
  2487.     bind    F8    <zo>    "tabular"    "TeX"
  2488.     bind    F8    <zos>    tabbing    "TeX"
  2489.     
  2490.     bind    F9    <zo>    figure    "TeX"
  2491.     bind    F9    <zos>    table    "TeX"
  2492.     # bind    F9    <oz>    slide    "TeX"
  2493.     
  2494.     bind    F10    <zo>    verbatim    "TeX"
  2495.     bind    F10    <zos>    quote    "TeX"
  2496.     # bind    F10    <oz>    quotation    "TeX"
  2497.     bind    F10    <zco>    verse    "TeX"
  2498.     
  2499.     bind    F11    <zo>    "index"    "TeX"
  2500.     bind    F11    <zos>    "bibliography"    "TeX"
  2501.     
  2502.     bind    F12    <zo>    "general"    "TeX"
  2503.  
  2504.     # tab:
  2505.     bind    0x30    nextTabStop    "TeX"
  2506.     bind    0x30    <s>     previousTabStop    "TeX"
  2507.     
  2508. }
  2509.  
  2510. #================================================================================
  2511. # Random nonsense
  2512. #================================================================================
  2513.  
  2514. proc nextSubSection {} {
  2515.     set res [search -f 1 -r 1 -n {(section|chapter)\{} [nextLineStart [getPos]]]
  2516.     if {[string length $res]} {
  2517.         goto [lineStart [lindex $res 0]]
  2518.     } else {
  2519.         beep
  2520.     }
  2521. }
  2522. bind 'n' <zs> nextSubSection "TeX"
  2523.  
  2524. proc prevSubSection {} {
  2525.     set res [search -f 0 -r 1 -n {(section|chapter)\{} [lineStart [getPos]]]
  2526.     if {[string length $res]} {
  2527.         goto [lineStart [lindex $res 0]]
  2528.     } else {
  2529.         beep
  2530.     }
  2531. }
  2532. bind 'p' <zs> prevSubSection "TeX"
  2533.  
  2534.  
  2535. proc nextSection {} {
  2536.     set res [search -f 1 -r 1 -n {\\(section|chapter)\{} [nextLineStart [getPos]]]
  2537.     if {[string length $res]} {
  2538.         goto [lineStart [lindex $res 0]]
  2539.     } else {
  2540.         beep
  2541.     }
  2542. }
  2543. bind 'n' <zsc> nextSection "TeX"
  2544.  
  2545. proc prevSection {} {
  2546.     set res [search -f 0 -r 1 -n {\\(section|chapter)\{} [expr [lineStart [getPos]]-1]]
  2547.     if {[string length $res]} {
  2548.         goto [lineStart [lindex $res 0]]
  2549.     } else {
  2550.         beep
  2551.     }
  2552. }
  2553. bind 'p' <zsc> prevSection "TeX"
  2554.  
  2555.